home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / TESTS / MEM02.ICN < prev    next >
Text File  |  1990-03-02  |  221b  |  8 lines
  1. procedure main()
  2.    write(image(x := []) | "failed")
  3.    write(image(every push(x,1 to 1000)) | "failed")
  4.    write(image(x) | "failed")
  5.    write(image(every push(x,1 to 1000)) | "failed")
  6.    write(image(x) | "failed")
  7. end
  8.